home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Tutorial Material / Zone Tutorial / Structure Notes / 5. Picking Tonalities < prev    next >
Lisp/Scheme  |  1998-10-26  |  2KB  |  33 lines
  1. Picking tonalities 
  2.  
  3. On a grander scale tonalities can be assembled within a library and 
  4. 'picked' according to a template - and that template could even be 
  5. the melody pattern you happen to be using. In the example below, 
  6. from Heartstone (a seven movement work for wind, brass and 
  7. percussion by  the author), there is, in effect, tonality 
  8. counterpoint taking place. Explore the whole movement in file 
  9. HRSTNE3. Remember to place the file HRSTNE in the tonality folder
  10. of your library.
  11.  
  12. (setq tonal4 
  13.       (pick-tonality ("hrstne" 0.45 (use-item (symbol-trim 6 tut4)))))
  14.  
  15. (compile-song "ccl;output:" 2/2 separate
  16. ; BARS            |---|---|---|---|---|---|---|---|
  17. scale1 tonal1    "    .   .   .   .             . "
  18. scale2 tonal2    "      .   .   .   .      .      "
  19. scale3 tonal3    "   .   .   .   .           .    "
  20. scale4 tonal4    "  .      .   .       .       .  "
  21. pt1  scale1      "------        ---  -  --      --" ; picc
  22. pt2  scale1      "------     --------- -----------" ; flute
  23. pt3  scale2      "  --  -----     ----   --    ---" ; clnt
  24. pt4  scale2      "  --  --------------  ----    --" ; sax
  25. pt5  scale3      "     ---- ---  -------     -----" ; oboe
  26. pt6  scale3      "     -- ----  ------ ------  ---" ; bsn
  27. pt7  scale4      "------ ---  ---     ---- -------" ; trp
  28. pt8  scale4      "--- ---  ---  -    - - - --  ---" ; trmb
  29. hn3  scale3      "-------------       - - -  -----"
  30. hn4  scale3      "-------------       - - -  -----"
  31. hn1  scale4      "    ------      ---- - - --  ---"
  32. hn2  scale4      "    ------      ---- - - --  ---"
  33. )